home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / csa.arc / CSA_GEN.PAS < prev    next >
Pascal/Delphi Source File  |  1987-05-22  |  713b  |  29 lines
  1. program gen_test(input,output);
  2.  
  3. var
  4.     t : array [1..4] of string[2];
  5.     f : array [1..4] of string[2];
  6.     i, j, k, l : integer; 
  7.     fn : text;
  8. begin
  9.     writeln('generating file CSAGEN.LSP');
  10.     t[1] := 'A ';
  11.     t[2] := 'E ';
  12.     t[3] := 'I ';
  13.     t[4] := 'O ';
  14.     f[1] := '1 ';
  15.     f[2] := '2 ';
  16.     f[3] := '3 ';
  17.     f[4] := '4 ';
  18.     assign(fn,'csagen.lsp');
  19.     rewrite(fn);
  20.     writeln('writing all possible forms');
  21.     for i := 1 to 4 do
  22.         for j := 1 to 4 do
  23.             for k := 1 to 4 do
  24.                 for l := 1 to 4 do begin
  25.                     writeln(fn, '(rule_test ',chr(39),'(',f[i],t[j],t[k],t[l],'))');
  26.                 end;                    
  27. end.
  28.  
  29.